hide mouse:cls 0:autocam off
ObjectNumber=1
SecondObject=2
ImageNumber=1
make object sphere SecondObject,1
load object "models\model.x",ObjectNumber
load image "iron.jpg",ImageNumber
append object "models\extraanim.x", ObjectNumber, total object frames(ObjectNumber)+1
set object interpolation ObjectNumber,50
position object ObjectNumber,0,0,0
position object SecondObject,0,0,0
position camera 0,2,4
point camera 0,0,0
lock object on SecondObject
position object SecondObject,0,0,5
while mouseclick()=0
set cursor 0,0
print "press z to disable object zdepth"
if inkey$()="z" then disable object zdepth ObjectNumber
print "press x to enable object zdepth"
if inkey$()="x" then enable object zdepth ObjectNumber
print "press up arrow key"
if upkey()=1 then move camera 1:while scancode()<>0:endwhile
print "press down arrow key"
if downkey()=1 then move camera -1:while scancode()<>0:endwhile
print "press left arrow key"
if leftkey()=1 then turn camera left 1
print "press right arrow key"
if rightkey()=1 then turn camera right 1
endwhile
lock object off SecondObject
position object SecondObject,0,0,0
if object exist(ObjectNumber)=1 then delete object ObjectNumber
if object exist(SecondObject)=1 then delete object SecondObject
if image exist(ImageNumber)=1 then delete image ImageNumber
end
